format 8 


bind 
mu   1
end


markov shared(lam) 
2 1 2*lam
1 0 lam
1 2 mu
0 1 mu
reward
2 rew_2 
1 rew_1 
0 rew_0 
end


bind
rew_2  525600
rew_1  525600
rew_0  0
end 

func Downtime(l) exrss(shared;l)
*expr Downtime

loop j ,2, 5, 0.5
  bind lam 1.0 *10^-j
  expr Downtime(lam)
end

end


